home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 098 / eds.arc / EDSHL.LSP < prev    next >
Encoding:
Text File  |  1980-01-01  |  499 b   |  19 lines
  1. ;This function draws a "continuous"
  2. ;horizontal line (similar to CADAM)
  3. ;
  4. ;Function name "EDSHL.LSP" - Execute command "HL"
  5. ;
  6. ;Written by Steve Brown and Christopher Conrad
  7. ;
  8. ;
  9. (defun c:hl ( / pt1 pt2)
  10.    (setq indpt (getpoint "\nIndicate point: "))
  11.    (setq horx (car indpt))
  12.    (setq hory (cadr indpt))
  13.    (setq rside (+ horx 15000.0))
  14.    (setq lside (- horx 15000.0))
  15.    (setq pt1 (list lside hory))
  16.    (setq pt2 (list rside hory))
  17.    (command "line" pt1 pt2)
  18.    (command "")
  19. )